home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / threshold.G < prev    next >
Encoding:
Text File  |  1992-12-24  |  24.6 KB  |  840 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   pop_threshold
  6.     :owner                  nil
  7.     :width                  430
  8.     :height                 480
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Segal: Threshold"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  pop_threshold
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  430
  30.     :height                 480
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :setting
  42.     :name                   set_roi
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      39
  46.     :y                      4
  47.     :width                  318
  48.     :height                 23
  49.     :value-x                173
  50.     :value-y                4
  51.     :rows                   1
  52.     :columns                0
  53.     :layout-type            :horizontal
  54.     :foreground-color       ""
  55.     :setting-type           :stack
  56.     :selection-required     t
  57.     :label                  "Region of interest:"
  58.     :label-type             :string
  59.     :notify-handler         nil
  60.     :event-handler          nil
  61.     :choices                ("Frame - Whole" "Frame - Cropped region" "Frame - Point list" "Entire image - Whole" "Entire image - Cube" "Entire image - Point list" )
  62.     :choice-label-types     (:string :string :string :string :string :string )
  63.     :choice-colors          ("" "" "" "" "" "" )
  64.     :choice-defaults        (nil nil nil nil nil nil )
  65.     :initial-selections     (nil nil nil nil nil nil )
  66.     :initial-state          :active
  67.     :user-data              ()
  68.     :actions                (
  69.         (
  70.         :from                   (pop_threshold set_roi "Entire image - Cube")
  71.         :when                   (Notify )
  72.         :to                     (pop_threshold set_roi "Entire image - Cube")
  73.         :function_type          ExecuteCode
  74.         :arg_type               (:string)
  75.         :action                 ("threshold.roi = R3d_CUBE;
  76. refresh_histogram();")
  77.         )
  78.         (
  79.         :from                   (pop_threshold set_roi "Entire image - Point list")
  80.         :when                   (Notify )
  81.         :to                     (pop_threshold set_roi "Entire image - Point list")
  82.         :function_type          ExecuteCode
  83.         :arg_type               (:string)
  84.         :action                 ("threshold.roi = R3d_PT_LIST;
  85. refresh_histogram();")
  86.         )
  87.         (
  88.         :from                   (pop_threshold set_roi "Entire image - Whole")
  89.         :when                   (Notify )
  90.         :to                     (pop_threshold set_roi "Entire image - Whole")
  91.         :function_type          ExecuteCode
  92.         :arg_type               (:string)
  93.         :action                 ("threshold.roi = R3d_WHOLE;
  94. refresh_histogram();")
  95.         )
  96.         (
  97.         :from                   (pop_threshold set_roi "Frame - Cropped region")
  98.         :when                   (Notify )
  99.         :to                     (pop_threshold set_roi "Frame - Cropped region")
  100.         :function_type          ExecuteCode
  101.         :arg_type               (:string)
  102.         :action                 ("threshold.roi = R2d_CROP;
  103. refresh_histogram();")
  104.         )
  105.         (
  106.         :from                   (pop_threshold set_roi "Frame - Point list")
  107.         :when                   (Notify )
  108.         :to                     (pop_threshold set_roi "Frame - Point list")
  109.         :function_type          ExecuteCode
  110.         :arg_type               (:string)
  111.         :action                 ("threshold.roi = R2d_PT_LIST;
  112. refresh_histogram();")
  113.         )
  114.         (
  115.         :from                   (pop_threshold set_roi "Frame - Whole")
  116.         :when                   (Notify )
  117.         :to                     (pop_threshold set_roi "Frame - Whole")
  118.         :function_type          ExecuteCode
  119.         :arg_type               (:string)
  120.         :action                 ("threshold.roi = R2d_WHOLE;
  121. refresh_histogram();")
  122.         )
  123.     )
  124. )
  125. (
  126.     :type                   :setting
  127.     :name                   set_plane
  128.     :owner                  controls1
  129.     :help                   ""
  130.     :x                      10
  131.     :y                      31
  132.     :width                  287
  133.     :height                 23
  134.     :value-x                173
  135.     :value-y                31
  136.     :rows                   1
  137.     :columns                0
  138.     :layout-type            :horizontal
  139.     :foreground-color       ""
  140.     :setting-type           :stack
  141.     :selection-required     t
  142.     :label                  "Histogram color plane:"
  143.     :label-type             :string
  144.     :notify-handler         nil
  145.     :event-handler          nil
  146.     :choices                ("Gray/Intensity" "Red" "Green" "Blue" )
  147.     :choice-label-types     (:string :string :string :string )
  148.     :choice-colors          ("" "" "" "" )
  149.     :choice-defaults        (nil nil nil nil )
  150.     :initial-selections     (nil nil nil nil )
  151.     :initial-state          :inactive
  152.     :user-data              ()
  153.     :actions                (
  154.         (
  155.         :from                   (pop_threshold set_plane "Blue")
  156.         :when                   (Notify )
  157.         :to                     (pop_threshold set_plane "Blue")
  158.         :function_type          ExecuteCode
  159.         :arg_type               (:string)
  160.         :action                 ("threshold.plane = BP;
  161. refresh_histogram();")
  162.         )
  163.         (
  164.         :from                   (pop_threshold set_plane "Green")
  165.         :when                   (Notify )
  166.         :to                     (pop_threshold set_plane "Green")
  167.         :function_type          ExecuteCode
  168.         :arg_type               (:string)
  169.         :action                 ("threshold.plane = GP;
  170. refresh_histogram();")
  171.         )
  172.         (
  173.         :from                   (pop_threshold set_plane "Red")
  174.         :when                   (Notify )
  175.         :to                     (pop_threshold set_plane "Red")
  176.         :function_type          ExecuteCode
  177.         :arg_type               (:string)
  178.         :action                 ("threshold.plane = RP;
  179. refresh_histogram();")
  180.         )
  181.         (
  182.         :from                   (pop_threshold set_plane "Gray/Intensity")
  183.         :when                   (Notify )
  184.         :to                     (pop_threshold set_plane "Gray/Intensity")
  185.         :function_type          ExecuteCode
  186.         :arg_type               (:string)
  187.         :action                 ("threshold.plane = VAL_RGB;
  188. refresh_histogram();")
  189.         )
  190.     )
  191. )
  192. (
  193.     :type                   :group
  194.     :name                   group1
  195.     :x                      10
  196.     :y                      31
  197.     :group-type             nil
  198.     :members                (set_plane )
  199.     :rows                   1
  200.     :row-alignment          :top-edges
  201.     :columns                0
  202.     :column-alignment       :left-edges
  203.     :horizontal-spacing     10
  204.     :vertical-spacing       10
  205.     :anchor-object          nil
  206.     :anchor-point           :north-west
  207.     :reference-point        :north-west
  208.     :horizontal-offset      0
  209.     :vertical-offset        0
  210.     :user-data              ()
  211.     :actions                ()
  212. )
  213. (
  214.     :type                   :setting
  215.     :name                   set_mask_effect
  216.     :owner                  controls1
  217.     :help                   ""
  218.     :x                      30
  219.     :y                      58
  220.     :width                  260
  221.     :height                 23
  222.     :value-x                173
  223.     :value-y                58
  224.     :rows                   1
  225.     :columns                0
  226.     :layout-type            :horizontal
  227.     :foreground-color       ""
  228.     :setting-type           :stack
  229.     :selection-required     t
  230.     :label                  "Effect on edit mask:"
  231.     :label-type             :string
  232.     :notify-handler         nil
  233.     :event-handler          nil
  234.     :choices                ("Overwrite" "Add to" "Remove from" )
  235.     :choice-label-types     (:string :string :string )
  236.     :choice-colors          ("" "" "" )
  237.     :choice-defaults        (nil nil nil )
  238.     :initial-selections     (nil nil nil )
  239.     :initial-state          :active
  240.     :user-data              ()
  241.     :actions                (
  242.         (
  243.         :from                   (pop_threshold set_mask_effect "Add to")
  244.         :when                   (Notify )
  245.         :to                     (pop_threshold set_mask_effect "Add to")
  246.         :function_type          ExecuteCode
  247.         :arg_type               (:string)
  248.         :action                 ("threshold.mask_effect = THRESH_ADD_TO;")
  249.         )
  250.         (
  251.         :from                   (pop_threshold set_mask_effect "Overwrite")
  252.         :when                   (Notify )
  253.         :to                     (pop_threshold set_mask_effect "Overwrite")
  254.         :function_type          ExecuteCode
  255.         :arg_type               (:string)
  256.         :action                 ("threshold.mask_effect = THRESH_OVERWRITE;")
  257.         )
  258.         (
  259.         :from                   (pop_threshold set_mask_effect "Remove from")
  260.         :when                   (Notify )
  261.         :to                     (pop_threshold set_mask_effect "Remove from")
  262.         :function_type          ExecuteCode
  263.         :arg_type               (:string)
  264.         :action                 ("threshold.mask_effect = THRESH_REMOVE_FROM;")
  265.         )
  266.     )
  267. )
  268. (
  269.     :type                   :button
  270.     :name                   but_threshold_mask
  271.     :owner                  controls1
  272.     :help                   ""
  273.     :x                      310
  274.     :y                      60
  275.     :width                  115
  276.     :height                 19
  277.     :constant-width         nil
  278.     :button-type            :normal
  279.     :foreground-color       ""
  280.     :label                  "Threshold mask"
  281.     :label-type             :string
  282.     :initial-state          :active
  283.     :menu                   nil
  284.     :notify-handler         nil
  285.     :event-handler          nil
  286.     :user-data              ()
  287.     :actions                (
  288.         (
  289.         :from                   (pop_threshold but_threshold_mask)
  290.         :when                   (Notify )
  291.         :to                     (pop_threshold but_threshold_mask)
  292.         :function_type          ExecuteCode
  293.         :arg_type               (:string)
  294.         :action                 ("threshold_mask();")
  295.         )
  296.     )
  297. )
  298. (
  299.     :type                   :setting
  300.     :name                   set_image_effect
  301.     :owner                  controls1
  302.     :help                   ""
  303.     :x                      55
  304.     :y                      85
  305.     :width                  238
  306.     :height                 23
  307.     :value-x                173
  308.     :value-y                85
  309.     :rows                   1
  310.     :columns                0
  311.     :layout-type            :horizontal
  312.     :foreground-color       ""
  313.     :setting-type           :exclusive
  314.     :selection-required     t
  315.     :label                  "Effect on image:"
  316.     :label-type             :string
  317.     :notify-handler         nil
  318.     :event-handler          nil
  319.     :choices                ("Darken" "Lighten" )
  320.     :choice-label-types     (:string :string )
  321.     :choice-colors          ("" "" )
  322.     :initial-selections     (nil nil )
  323.     :initial-state          :active
  324.     :user-data              ()
  325.     :actions                (
  326.         (
  327.         :from                   (pop_threshold set_image_effect "Darken")
  328.         :when                   (Notify )
  329.         :to                     (pop_threshold set_image_effect "Darken")
  330.         :function_type          ExecuteCode
  331.         :arg_type               (:string)
  332.         :action                 ("threshold.image_effect = -1 * threshold.degree;")
  333.         )
  334.         (
  335.         :from                   (pop_threshold set_image_effect "Lighten")
  336.         :when                   (Notify )
  337.         :to                     (pop_threshold set_image_effect "Lighten")
  338.         :function_type          ExecuteCode
  339.         :arg_type               (:string)
  340.         :action                 ("threshold.image_effect = threshold.degree;")
  341.         )
  342.     )
  343. )
  344. (
  345.     :type                   :button
  346.     :name                   but_threshold_image
  347.     :owner                  controls1
  348.     :help                   ""
  349.     :x                      305
  350.     :y                      88
  351.     :width                  120
  352.     :height                 19
  353.     :constant-width         nil
  354.     :button-type            :normal
  355.     :foreground-color       ""
  356.     :label                  "Threshold image"
  357.     :label-type             :string
  358.     :initial-state          :active
  359.     :menu                   nil
  360.     :notify-handler         nil
  361.     :event-handler          nil
  362.     :user-data              ()
  363.     :actions                (
  364.         (
  365.         :from                   (pop_threshold but_threshold_image)
  366.         :when                   (Notify )
  367.         :to                     (pop_threshold but_threshold_image)
  368.         :function_type          ExecuteCode
  369.         :arg_type               (:string)
  370.         :action                 ("threshold_image();")
  371.         )
  372.     )
  373. )
  374. (
  375.     :type                   :slider
  376.     :name                   set_degree
  377.     :owner                  controls1
  378.     :help                   ""
  379.     :x                      145
  380.     :y                      112
  381.     :width                  224
  382.     :height                 20
  383.     :value-x                173
  384.     :value-y                112
  385.     :slider-width           100
  386.     :ticks                  0
  387.     :foreground-color       ""
  388.     :label                  "By:"
  389.     :label-type             :string
  390.     :layout-type            :horizontal
  391.     :orientation            :horizontal
  392.     :show-endboxes          nil
  393.     :show-range             t
  394.     :show-value             t
  395.     :min-value              1
  396.     :max-value              255
  397.     :min-value-string       ""
  398.     :max-value-string       ""
  399.     :min-tick-string        ""
  400.     :max-tick-string        ""
  401.     :initial-value          20
  402.     :initial-state          :active
  403.     :notify-handler         nil
  404.     :event-handler          nil
  405.     :user-data              ()
  406.     :actions                (
  407.         (
  408.         :from                   (pop_threshold set_degree)
  409.         :when                   (Notify )
  410.         :to                     (pop_threshold set_degree)
  411.         :function_type          ExecuteCode
  412.         :arg_type               (:string)
  413.         :action                 ("threshold.degree = value;
  414. if(threshold.image_effect < 0)
  415.     threshold.image_effect = -1 * threshold.degree;
  416. else threshold.image_effect = threshold.degree;")
  417.         )
  418.     )
  419. )
  420. (
  421.     :type                   :message
  422.     :name                   msg_line1
  423.     :owner                  controls1
  424.     :help                   ""
  425.     :x                      8
  426.     :y                      136
  427.     :width                  416
  428.     :height                 13
  429.     :foreground-color       ""
  430.     :label                  "----------------------------------------------------"
  431.     :label-type             :string
  432.     :label-bold             t
  433.     :initial-state          :active
  434.     :event-handler          nil
  435.     :user-data              ()
  436.     :actions                ()
  437. )
  438. (
  439.     :type                   :button
  440.     :name                   but_min_down
  441.     :owner                  controls1
  442.     :help                   ""
  443.     :x                      150
  444.     :y                      152
  445.     :width                  26
  446.     :height                 19
  447.     :constant-width         nil
  448.     :button-type            :normal
  449.     :foreground-color       ""
  450.     :label                  "<"
  451.     :label-type             :string
  452.     :initial-state          :active
  453.     :menu                   nil
  454.     :notify-handler         nil
  455.     :event-handler          nil
  456.     :user-data              ()
  457.     :actions                (
  458.         (
  459.         :from                   (pop_threshold but_min_down)
  460.         :when                   (Notify )
  461.         :to                     (pop_threshold but_min_down)
  462.         :function_type          ExecuteCode
  463.         :arg_type               (:string)
  464.         :action                 ("if(threshold.min > 0) {
  465.     erase_thresh_bounds();
  466.     threshold.min--;
  467.     draw_thresh_bounds();
  468. }")
  469.         )
  470.     )
  471. )
  472. (
  473.     :type                   :button
  474.     :name                   but_min_up
  475.     :owner                  controls1
  476.     :help                   ""
  477.     :x                      178
  478.     :y                      152
  479.     :width                  26
  480.     :height                 19
  481.     :constant-width         nil
  482.     :button-type            :normal
  483.     :foreground-color       ""
  484.     :label                  ">"
  485.     :label-type             :string
  486.     :initial-state          :active
  487.     :menu                   nil
  488.     :notify-handler         nil
  489.     :event-handler          nil
  490.     :user-data              ()
  491.     :actions                (
  492.         (
  493.         :from                   (pop_threshold but_min_up)
  494.         :when                   (Notify )
  495.         :to                     (pop_threshold but_min_up)
  496.         :function_type          ExecuteCode
  497.         :arg_type               (:string)
  498.         :action                 ("if(threshold.min < threshold.max) {
  499.     erase_thresh_bounds();
  500.     threshold.min++;
  501.     draw_thresh_bounds();
  502. }")
  503.         )
  504.     )
  505. )
  506. (
  507.     :type                   :button
  508.     :name                   but_max_down
  509.     :owner                  controls1
  510.     :help                   ""
  511.     :x                      310
  512.     :y                      152
  513.     :width                  26
  514.     :height                 19
  515.     :constant-width         nil
  516.     :button-type            :normal
  517.     :foreground-color       ""
  518.     :label                  "<"
  519.     :label-type             :string
  520.     :initial-state          :active
  521.     :menu                   nil
  522.     :notify-handler         nil
  523.     :event-handler          nil
  524.     :user-data              ()
  525.     :actions                (
  526.         (
  527.         :from                   (pop_threshold but_max_down)
  528.         :when                   (Notify )
  529.         :to                     (pop_threshold but_max_down)
  530.         :function_type          ExecuteCode
  531.         :arg_type               (:string)
  532.         :action                 ("if(threshold.max > threshold.min) {
  533.     erase_thresh_bounds();
  534.     threshold.max--;
  535.     draw_thresh_bounds();
  536. }
  537. ")
  538.         )
  539.     )
  540. )
  541. (
  542.     :type                   :button
  543.     :name                   but_max_up
  544.     :owner                  controls1
  545.     :help                   ""
  546.     :x                      338
  547.     :y                      152
  548.     :width                  26
  549.     :height                 19
  550.     :constant-width         nil
  551.     :button-type            :normal
  552.     :foreground-color       ""
  553.     :label                  ">"
  554.     :label-type             :string
  555.     :initial-state          :active
  556.     :menu                   nil
  557.     :notify-handler         nil
  558.     :event-handler          nil
  559.     :user-data              ()
  560.     :actions                (
  561.         (
  562.         :from                   (pop_threshold but_max_up)
  563.         :when                   (Notify )
  564.         :to                     (pop_threshold but_max_up)
  565.         :function_type          ExecuteCode
  566.         :arg_type               (:string)
  567.         :action                 ("if(threshold.max < 255) {
  568.     erase_thresh_bounds();
  569.     threshold.max++;
  570.     draw_thresh_bounds();
  571. }")
  572.         )
  573.     )
  574. )
  575. (
  576.     :type                   :message
  577.     :name                   msg_min
  578.     :owner                  controls1
  579.     :help                   ""
  580.     :x                      66
  581.     :y                      158
  582.     :width                  29
  583.     :height                 13
  584.     :foreground-color       ""
  585.     :label                  "Min:"
  586.     :label-type             :string
  587.     :label-bold             t
  588.     :initial-state          :active
  589.     :event-handler          nil
  590.     :user-data              ()
  591.     :actions                ()
  592. )
  593. (
  594.     :type                   :message
  595.     :name                   msg_max
  596.     :owner                  controls1
  597.     :help                   ""
  598.     :x                      226
  599.     :y                      158
  600.     :width                  30
  601.     :height                 13
  602.     :foreground-color       ""
  603.     :label                  "Max:"
  604.     :label-type             :string
  605.     :label-bold             t
  606.     :initial-state          :active
  607.     :event-handler          nil
  608.     :user-data              ()
  609.     :actions                ()
  610. )
  611. (
  612.     :type                   :message
  613.     :name                   msg_max_histo
  614.     :owner                  controls1
  615.     :help                   ""
  616.     :x                      348
  617.     :y                      182
  618.     :width                  32
  619.     :height                 13
  620.     :foreground-color       ""
  621.     :label                  "2000"
  622.     :label-type             :string
  623.     :label-bold             t
  624.     :initial-state          :active
  625.     :event-handler          nil
  626.     :user-data              ()
  627.     :actions                ()
  628. )
  629. (
  630.     :type                   :button
  631.     :name                   but_refresh
  632.     :owner                  controls1
  633.     :help                   ""
  634.     :x                      16
  635.     :y                      184
  636.     :width                  64
  637.     :height                 19
  638.     :constant-width         nil
  639.     :button-type            :normal
  640.     :foreground-color       ""
  641.     :label                  "Refresh"
  642.     :label-type             :string
  643.     :initial-state          :active
  644.     :menu                   nil
  645.     :notify-handler         nil
  646.     :event-handler          nil
  647.     :user-data              ()
  648.     :actions                (
  649.         (
  650.         :from                   (pop_threshold but_refresh)
  651.         :when                   (Notify )
  652.         :to                     (pop_threshold but_refresh)
  653.         :function_type          ExecuteCode
  654.         :arg_type               (:string)
  655.         :action                 ("draw_histogram();
  656. draw_thresh_bounds();")
  657.         )
  658.     )
  659. )
  660. (
  661.     :type                   :button
  662.     :name                   but_stats
  663.     :owner                  controls1
  664.     :help                   ""
  665.     :x                      16
  666.     :y                      216
  667.     :width                  48
  668.     :height                 19
  669.     :constant-width         nil
  670.     :button-type            :normal
  671.     :foreground-color       ""
  672.     :label                  "Stats"
  673.     :label-type             :string
  674.     :initial-state          :active
  675.     :menu                   nil
  676.     :notify-handler         nil
  677.     :event-handler          nil
  678.     :user-data              ()
  679.     :actions                (
  680.         (
  681.         :from                   (pop_threshold but_stats)
  682.         :when                   (Notify )
  683.         :to                     (pop_threshold but_stats)
  684.         :function_type          ExecuteCode
  685.         :arg_type               (:string)
  686.         :action                 ("draw_histo_stats();")
  687.         )
  688.     )
  689. )
  690. (
  691.     :type                   :button
  692.     :name                   but_histoeq
  693.     :owner                  controls1
  694.     :help                   ""
  695.     :x                      16
  696.     :y                      248
  697.     :width                  63
  698.     :height                 19
  699.     :constant-width         nil
  700.     :button-type            :normal
  701.     :foreground-color       ""
  702.     :label                  "HistoEq"
  703.     :label-type             :string
  704.     :initial-state          :active
  705.     :menu                   nil
  706.     :notify-handler         nil
  707.     :event-handler          nil
  708.     :user-data              ()
  709.     :actions                (
  710.         (
  711.         :from                   (pop_threshold but_histoeq)
  712.         :when                   (Notify )
  713.         :to                     (pop_threshold but_histoeq)
  714.         :function_type          ExecuteCode
  715.         :arg_type               (:string)
  716.         :action                 ("histoeq();")
  717.         )
  718.     )
  719. )
  720. (
  721.     :type                   :message
  722.     :name                   msg_mu
  723.     :owner                  controls1
  724.     :help                   ""
  725.     :x                      344
  726.     :y                      424
  727.     :width                  46
  728.     :height                 13
  729.     :foreground-color       ""
  730.     :label                  "mu = 1"
  731.     :label-type             :string
  732.     :label-bold             t
  733.     :initial-state          :invisible
  734.     :event-handler          nil
  735.     :user-data              ()
  736.     :actions                ()
  737. )
  738. (
  739.     :type                   :message
  740.     :name                   msg_0
  741.     :owner                  controls1
  742.     :help                   ""
  743.     :x                      90
  744.     :y                      446
  745.     :width                  8
  746.     :height                 13
  747.     :foreground-color       ""
  748.     :label                  "0"
  749.     :label-type             :string
  750.     :label-bold             t
  751.     :initial-state          :active
  752.     :event-handler          nil
  753.     :user-data              ()
  754.     :actions                ()
  755. )
  756. (
  757.     :type                   :message
  758.     :name                   msg_255
  759.     :owner                  controls1
  760.     :help                   ""
  761.     :x                      316
  762.     :y                      446
  763.     :width                  24
  764.     :height                 13
  765.     :foreground-color       ""
  766.     :label                  "255"
  767.     :label-type             :string
  768.     :label-bold             t
  769.     :initial-state          :active
  770.     :event-handler          nil
  771.     :user-data              ()
  772.     :actions                ()
  773. )
  774. (
  775.     :type                   :button
  776.     :name                   but_close
  777.     :owner                  controls1
  778.     :help                   ""
  779.     :x                      189
  780.     :y                      454
  781.     :width                  51
  782.     :height                 19
  783.     :constant-width         nil
  784.     :button-type            :normal
  785.     :foreground-color       ""
  786.     :label                  "Close"
  787.     :label-type             :string
  788.     :initial-state          :active
  789.     :menu                   nil
  790.     :notify-handler         nil
  791.     :event-handler          nil
  792.     :user-data              ()
  793.     :actions                (
  794.         (
  795.         :from                   (pop_threshold but_close)
  796.         :when                   (Notify )
  797.         :to                     (pop_threshold)
  798.         :function_type          :user_defined
  799.         :arg_type               ()
  800.         :action                 (Hide)
  801.         )
  802.     )
  803. )
  804. (
  805.     :type                   :canvas-pane
  806.     :name                   canvas
  807.     :owner                  pop_threshold
  808.     :help                   ""
  809.     :x                      87
  810.     :y                      184
  811.     :width                  256
  812.     :height                 256
  813.     :background-color       ""
  814.     :foreground-color       ""
  815.     :initial-state          :visible
  816.     :draggable              nil
  817.     :droppable              nil
  818.     :default-drop-site      nil
  819.     :menu                   nil
  820.     :horizontal-scrollbar   nil
  821.     :scrollable-width       256
  822.     :vertical-scrollbar     nil
  823.     :scrollable-height      256
  824.     :repaint-proc           nil
  825.     :event-handler          nil
  826.     :drawing-model          :xview
  827.     :user-data              ()
  828.     :actions                (
  829.         (
  830.         :from                   (pop_threshold canvas)
  831.         :when                   (AnyEvent )
  832.         :to                     (pop_threshold canvas)
  833.         :function_type          ExecuteCode
  834.         :arg_type               (:string)
  835.         :action                 ("thresh_event(event);")
  836.         )
  837.     )
  838. )
  839. )
  840.